home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / gfx / misc / MWBNail10.lha / MWBNail 1.0 / MWBNail.ifx < prev    next >
Text File  |  1995-06-05  |  2KB  |  125 lines
  1. /*
  2.  * $VER: MWBNail 1.0 (5.6.95)
  3.  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. SIGNAL ON BREAK_C
  8.  
  9.     /* set render mode to Amiga */
  10. GetRender
  11. if result ~= 'Amiga'
  12. then SetRender 'Amiga'
  13.  
  14.     /* set screen, color depth, and dither mode */
  15. Render ModeName 'NTSC:High Res Laced'
  16. Render Colors 8
  17. Render Dither 1 0 3
  18.  
  19.     /* set palette */
  20. Palette 8
  21. LockRange 8 Off
  22. GrabPalette Workbench
  23. SetRange 8 0 7
  24. LockRange 8 On
  25.  
  26. Redraw Off
  27.  
  28. inpattern = GETCLIP('WIMP_In')
  29.  
  30. Gadget.1 = 'S/120/20/Input pattern:/'inpattern
  31.  
  32. ComplexRequest '"MWBNail 1.0 by George L. Coulouris"' 1 Gadget 300 60
  33. IF rc ~= 0 THEN EXIT
  34.  
  35. inpattern = result.1
  36.  
  37. CALL SETCLIP('WIMP_In', inpattern)
  38.  
  39. i = INDEX(outpattern, '#?')
  40. IF i ~= 0 THEN DO
  41.    preout = LEFT(outpattern, i-1)
  42.    postout = SUBSTR(outpattern, i+2)
  43.    END
  44. ELSE DO
  45.    i = INDEX(outpattern, '*')
  46.    IF i ~= 0 THEN DO
  47.       preout = LEFT(outpattern, i-1)
  48.       postout = SUBSTR(outpattern, i+1)
  49.       END
  50.    END
  51.  
  52. /* determine input directory path */
  53. indir = ''
  54. i = LASTPOS('/', inpattern)
  55. IF i = 0 THEN i = LASTPOS(':', inpattern)
  56. IF i ~= 0 THEN DO
  57.    indir = LEFT(inpattern, i)
  58.    END
  59.  
  60. /* list all files matching the pattern */
  61. ADDRESS COMMAND 'c:List >RAM:__WIMP_TEMP__ NOHEAD LFORMAT='indir'%s' inpattern
  62. IF rc ~= 0 THEN DO
  63.    RequestNotify 'Error listing pattern files.'
  64.    EXIT
  65.    END
  66.  
  67. /* sort alphabetically */
  68. ADDRESS COMMAND 'c:Sort RAM:__WIMP_TEMP__ TO RAM:__WIMP_LIST__'
  69. ADDRESS COMMAND 'c:Delete RAM:__WIMP_TEMP__ QUIET'
  70.  
  71. IF ~OPEN(infile, 'RAM:__WIMP_LIST__', 'Read') THEN DO
  72.    RequestNotify 'Cannot read pattern files.'
  73.    EXIT
  74.    END
  75.  
  76. Undo Off
  77.  
  78. LockInput
  79.  
  80. f = 1
  81.  
  82. /* go through the list one by one */
  83. DO WHILE ~EOF(infile)
  84.  
  85.    nextfile = READLN(infile)
  86.  
  87.    IF ( (nextfile ~= "") & ~(exists(nextfile||'.info')) )  THEN DO
  88.       Render Close
  89.       files.f = nextfile; f = f + 1
  90.       Message nextfile
  91.  
  92.       LoadBuffer '"'nextfile'"' Force loadopt
  93.       IF rc ~= 0 THEN DO
  94.          RequestNotify 'Error loading file ('rc').'
  95.          LEAVE
  96.          END
  97.  
  98.             Scale 20 20 percent
  99.             Render Go
  100.             SaveRenderedAs Icon nextfile
  101.             Render Close
  102.             END
  103.  
  104.          END
  105.  
  106. CALL CLOSE(infile)
  107.  
  108. ADDRESS COMMAND 'c:Delete RAM:__WIMP_LIST__ QUIET'
  109.  
  110. Redraw On
  111. KillBuffer Force
  112. UnlockInput
  113. Undo On
  114.  
  115. EXIT
  116.  
  117. BREAK_C:
  118.  
  119.    ADDRESS COMMAND 'c:Delete RAM:__WIMP_LIST__ QUIET'
  120.    KillBuffer Force
  121.    UnlockInput
  122.    Undo On
  123.  
  124.    EXIT
  125.